setdisplay(320,200,32,1)
   screenopen(1,320,200,0,0,320,200,0):paper(8^8-1):ink(0):pen(0):cls
   basescreen(2,1)
for i=0 to (320*200*4)-1
   poke(2,i,rnd(255))
 next
   waitkey